home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / page6 / 00161.ls < prev    next >
Encoding:
Text File  |  1995-03-29  |  605 b   |  27 lines
  1. on mouseDown
  2.   sound stop 1
  3.   sound stop 2
  4.   puppetSound(0)
  5.   puppetSound("Hand icons")
  6.   set mysprite to the clickOn
  7.   set me to the castNum of sprite mysprite
  8.   set the castNum of sprite mysprite to me + 1
  9.   updateStage()
  10.   repeat while the mouseDown
  11.   end repeat
  12.   set the castNum of sprite mysprite to me
  13.   updateStage()
  14. end
  15.  
  16. on mouseUp
  17.   global pagenum
  18.   set pagenum to value(char 5 to the number of chars in the movie of the movie)
  19.   set pagenum to pagenum + 1
  20.   if the soundBusy of 1 then
  21.     repeat while the soundBusy of 1
  22.     end repeat
  23.     puppetSound(0)
  24.   end if
  25.   go(1, "page" & pagenum)
  26. end
  27.